home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / AVOGADRO / CHEMISTRY / ENERGY / !Energy / !Run < prev    next >
Text File  |  1996-05-10  |  1KB  |  36 lines
  1. | > !Energy.!Run
  2. |
  3. | Run File for Translational and Rotational Populations and Spectra
  4. |
  5. | by Chris Johnson
  6. |
  7. RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
  8. |
  9. | Follow PRM (4:497) advice and prevent multiple running
  10. |
  11. If "<Energy$Running>" = "yes" Then Error Energy is already running
  12. |
  13. |
  14. | Find path to file
  15. Set Energy$Dir <Obey$Dir>
  16. Set EnergyRM$Path <Obey$Dir>.rm.,system:modules.
  17. |
  18. IconSprites <Obey$Dir>.!Sprites
  19. |
  20. set temp$flag 1
  21. RMEnsure ABCLibrary 0 set temp$flag 0
  22. RMensure ABCLibrary 4.02 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad EnergyRM:ABCLib
  23. RMensure ABCLibrary 4.02 Error You need the ABClibrary ver 4.02 or later installed
  24. |
  25. set temp$flag 1
  26. RMEnsure CJWimpUtil 0 set temp$flag 0
  27. RMEnsure CJWimpUtil 0.18 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil installed Else RMLoad EnergyRM:cjWimpUtil
  28. RMEnsure CJWimpUtil 0.18 Error You need the CJWimpUtil module installed
  29. unset temp$flag
  30. |
  31. | Check memory allocation
  32. WimpSlot -min 76K -max 76K
  33. |
  34. | Now start program
  35. Run <Obey$Dir>.!RunImage
  36.